% Make Train Data Extract Feature Vectors
clc;
clearvars;
RunNum=4;
PartNum=23;
Fitted=[];
Params=[];
k=1;
for R=1:RunNum
    for P=1:PartNum
        DataFileName=['Data\FittingData_Part',num2str(P),'Run',num2str(R),'.mat'];
        Data=load(DataFileName);
        Seed(k)=Data.ObserverRngState.Seed;
        States(k,:)=Data.ObserverRngState.State;
        Params=[Params;Data.Params];
        Fitted=[Fitted;Data.BestFittedParams];
        RP(k,:)=[R,P];
        k=k+1;
    end
end

%%
find(Seed==0)
[A,C,D]=unique(Seed);

k1=21;
R=RP(k1,1);
P=RP(k1,2);
DataFileName1=['Data\FittingData_Part',num2str(P),'Run',num2str(R),'.mat'];
Data1=load(DataFileName1);
k2=23;
R=RP(k2,1);
P=RP(k2,2);
DataFileName2=['Data\FittingData_Part',num2str(P),'Run',num2str(R),'.mat'];
Data2=load(DataFileName2);